home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / rkey15.zip / RKBRAND.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-09  |  1KB  |  46 lines
  1. Program RkGenKey;
  2.  
  3. {
  4.  This is a sample program using rKey.  It is a sample of a software
  5.  branding program that would be used by the user to enter their name
  6.  and registration key and create a key file.  This sample will create
  7.  a key file for the RkSample program, using a registration key which
  8.  would be generated by the programmer using the RkGenKey program.
  9. }
  10.  
  11.  
  12. Uses
  13.   rKey;
  14.  
  15.  
  16. Const
  17.   RkBrandVer = '1.3';
  18.  
  19.  
  20. Var
  21.   n : String[36];
  22.   k : String[12];
  23.  
  24.  
  25. Begin
  26.   OwnerCode := 'ArgleBarbWotsLeeb';
  27.   ProgramCode := 'RkSample Two';
  28.   KeyFileName := 'RKSAMPLE';
  29.   WriteLn('RkBrand v' + RkBrandVer);
  30.   WriteLn('Software Branding Program for RkSample v2.x');
  31.   WriteLn('(c) 1990 TrendSoft, Inc.');
  32.   WriteLn;
  33.   Write('Enter name of person to register : ');
  34.   ReadLn(n);
  35.   WriteLn;
  36.   Write('Enter registration key : ');
  37.   ReadLn(k);
  38.   WriteLn;
  39.   If Not ValidKey(n,k) then
  40.     WriteLn('Invalid registration key!')
  41.   Else Begin
  42.     Register(n,k);
  43.     WriteLn('RkSample now registered to ' + RegName);
  44.   End;
  45. End.
  46.